   1 .
   2 .
   3 .SPACE WARS 3
   4 .RACE
   5 W=0;X=0;Y=0;Z=0
   6 O=0
   7 P=0
   8 Q=99
   9 R=99
  10 clear 
  15 FC=7;BC=0
  20 for A=1to 25
  30 box rnd (160)-80,rnd (88)-44,1,1,1
  40 next A
  50 B=rnd (160)-80;C=rnd (88)-44
  60 D=rnd (160)-80;E=rnd (88)-44
  65 NT=0
  70 &(17)=20;&(18)=30;&(20)=50;&(22)=100
  78 box B,C,6,5,2
  80 W=W+JX(1);X=X+JY(1)
  82 B=B+W;C=C+X
  83 if B>75B=-75
  84 if B<-75B=75
  85 if C<-38C=38
  86 if C>38C=-38
  87 CX=B
  88 CY=C
  89 print "mul "
  90 Y=Y+JX(2);Z=Z+JY(2)
  91 box D,E,6,6,2
  92 D=D+Y;E=E+Z
  93 if D>75D=-75
  94 if D<-75D=75
  96 if E>38E=-38
  97 if E<-38E=38
 110 CX=D
 111 CY=E
 112 print "*"
 115 F=KN(1)div 2;G=KN(2)div 2
 116 CX=-40
 117 CY=44
 118 print #3,P,#4,Q,#4,O,#4,R
 120 if TR(1)=1goto 1000
 130 if TR(2)=1goto 2000
 140 goto 70
1000 line B,C,0
1005 Q=Q-1
1007 if Q<1goto 5000
1010 line F,E,3;line B,C,3
1020 &(17)=10;&(18)=15
1030 line F,E,3;line B,C,3
1040 line 0,0,0
1050 if D-F<3if D-F>-3goto 3000
1060 goto 130
2000 line D,E,0
2005 R=R-1
2007 if R<1goto 5000
2010 line G,C,3;line D,E,3
2020 &(17)=15;&(18)=20
2030 line G,C,3;line D,E,3
2040 line 0,0,0
2050 if B-G<3if B-G>-3goto 4000
2060 goto 140
3000 NT=3
3001 for A=1to 15
3010 MU="!";BC=7
3020 box D,E,rnd (12),rnd (8),3
3030 BC=0
3040 next A
3050 box D,E,14,10,2
3060 for A=1to 1500
3070 next A
3075 P=P+1
3080 goto 10
4000 NT=3
4001 for A=1to 15
4010 MU="Y";BC=63
4020 box B,C,rnd (12),rnd (8),3
4030 BC=0
4040 next A
4050 box B,C,14,10,2
4055 O=O+1;P=P-1
4060 goto 3060
5000 print #20,"END OF GAME"
5001 NT=3
5010 print "     DO YOU WANT TO"
5020 print "        TRY AGAIN?"
>:return 
